Option Explicit
Sub N_Sample015()
    Dim myAr(1 To 5, 1 To 2)    As Variant
    Dim myStr                   As Variant
    Dim i                       As Long
    Dim j                       As Long
    Dim k                       As Long
    k = 96
    For i = 1 To 5
        For j = 1 To 2
            k = k + 1
            myAr(i, j) = Chr(k)
        Next
    Next
    For Each myStr In myAr
        Debug.Print myStr
    Next
    Cells(1, 1).Resize(5, 2).Value = myAr		'xs檺NJ
End Sub
